DEFINITION MODULE pSTORAGE;

(*
A portable Storage Module.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM SYSTEM IMPORT ADDRESS;
#ifdef FTLM2
#define Storage STORAGE
#endif

#ifdef FTLM2
IMPORT Storage;
#endif

#if (defined FSTM2) || (TSM2_2)
TYPE SIZETYPE = CARDINAL;
#else
TYPE SIZETYPE = LONGCARD;
#endif

#ifdef FTLM2
CONST ALLOCATE = Storage.ALLOCATE;

      DEALLOCATE = Storage.DEALLOCATE;
#endif

#ifndef FTLM2
PROCEDURE ALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);

PROCEDURE DEALLOCATE(VAR Addr: ADDRESS; Size: SIZETYPE);
#endif
END pSTORAGE.
